Labels:text | screenshot | display | software | number | computer icon | font | web page OCR: clsSmCalendar Properties 2 Sub udmDayClick(pDayObj AS Object) + ' Description: Method called to select and hilite object representing a day in calendar that user selected. - Parameter (s) : pDayObj Object specifies the object that represents a day in the calendar that was clicked. Application. Set Cursor (1) ' Get the day, month, year based on pDayObj's label vNewDay = CINT ( pDayObj . Label ) VNewMonth = MONTH ( udpCurrMonth ) VNewYear = YEAR ( udpCurrMonth ) ' Set udpCurrDate to the selected date udpCurrDate = CVDATE ( vNewMonth & "/" & vNewDay & "/" & vNewYear) ' Position the day_ hilite to the selected day clsSmCalendar. rctDays. rctHilite. PositionX = pDayObj . Positionx clsSmCalendar. rctDays. rctHilite. PositionY = pDayObj. PositionY clsSmCalendar. rctDays. rctHilite. txtHilite. Label = pDayObj . Label clsSmCalendar. rctDays. rctHilite. Visible = true Self. GetTopContainer () . ForceUpdate () ' Record which object was selected udpSelectedDayObj = pDayObj Update the date object tied to this calendar IF NOT ISNULL ( udpSetDateObj ) THEN IF CSTR (udpSetDateObj. Value) <> CSTR (udpCurrDate) THEN udpSetDateObj . Value = udpCurrDate END IF END IF
